﻿Public Class prueba_inf
    Inherits System.Web.UI.Page
    Private Sub cargaCombos()
        FG.CargaCombo("traerVacunas", cboVacunas)
        Me.cboVacunas.Items.Add("Todas")
        cboVacunas.Text = "Todas"
    End Sub

    

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not Page.IsPostBack Then
            FG.culturaPaginas()
            cargaCombos()

        End If




    End Sub


    Private Sub buscoDatosDeGrilla_Y_deChatr()
        Dim Rs As ADODB.Recordset
        Dim param(2) As ADODB.Parameter

        'vacio la grilla
        'gv_datos.DataBind()


        param(0) = New ADODB.Parameter
        param(0).Name = "@vacuna"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = cboVacunas.Text
        param(0).Size = 20

        param(1) = New ADODB.Parameter
        param(1).Name = "@RangoDesde"
        param(1).Type = ADODB.DataTypeEnum.adDate '<--campo fecha
        param(1).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(1).Value = txt_Vacunas_Desde.Text

        param(2) = New ADODB.Parameter
        param(2).Name = "@RangoDesde"
        param(2).Type = ADODB.DataTypeEnum.adDate '<--campo fecha
        param(2).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(2).Value = txt_Vacunas_Hasta.Text




        'Rs = Datos.TraerTodos("Trae_PorcentajeDeVacunadosXVacunaYfecha", param, "buscoDatosDeGrilla - infomes\inf_vacunas.aspx")

        ''cargo la grilla
        'gv_datos.DataSource = FG.cargaUnDataTable(Rs)
        'gv_datos.DataBind()
        ' ''''''''''''


        'busco los datos para el chart
        Rs = Datos.TraerTodos("Trae_PorcentajeDeVacunadosXVacunaYfechaParaChart", param, "buscoDatosDeGrilla - infomes\inf_vacunas.aspx")

        FG.cargaChart(Chart1, "Indice de vacunación a nivel provincial", TipoGrafico.Barra, Rs, 100)

        'FG.CargaControlChart_asp(Rs, Chart1, "Indice de vacunación a nivel provincial", DataVisualization.Charting.SeriesChartType.Bar, True, DataVisualization.Charting.AreaAlignmentOrientations.Horizontal, Drawing.Color.Blue, , , , , 100)



    End Sub
    Private Sub CompletaDatosDisciminandoSexo()
        Dim Rs As ADODB.Recordset
        Dim param(2) As ADODB.Parameter
        Dim I As Integer

        'oculto el panel
        P_detallexSexo.Visible = False
        '.--------------------------


        param(0) = New ADODB.Parameter
        param(0).Name = "@vacuna"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = cboVacunas.Text
        param(0).Size = 20

        param(1) = New ADODB.Parameter
        param(1).Name = "@RangoDesde"
        param(1).Type = ADODB.DataTypeEnum.adDate '<--campo fecha
        param(1).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(1).Value = txt_Vacunas_Desde.Text

        param(2) = New ADODB.Parameter
        param(2).Name = "@RangoDesde"
        param(2).Type = ADODB.DataTypeEnum.adDate '<--campo fecha
        param(2).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(2).Value = txt_Vacunas_Hasta.Text

        Rs = Datos.TraerTodos("Trae_PorcentajeDeVacunadosDeHomYmujeresXVacunaYfecha", param, "CompletaDatosDisciminandoSexo infomes\inf_vacunacion")

        If Rs.RecordCount > 0 Then
            P_detallexSexo.Visible = True
            'cargo la imagen de torta
            Img_Google.Src = FG.DevuelveUrlGoogle_chart_Torta(Rs, TipoGraficoTortaGoogle.DosDimensiones, 600, 400, "tasa discriminada por Sexo", Drawing.Color.Blue)

        End If

    End Sub


    Protected Sub btnGenerarVacunas_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnGenerarVacunas.Click
      


        'seteo mejse ''
        FG.SacaCartelDeAViso(lblMsjeGenerarVacunas)
        'gv_datos.DataBind()
        P_detallexSexo.Visible = False
        '-------------------



        'valido
        If txt_Vacunas_Desde.Text = "" Then
            FG.MuestraCartel("falta fecha desde", lblMsjeGenerarVacunas)
            Exit Sub
        End If

        If txt_Vacunas_Hasta.Text = "" Then
            FG.MuestraCartel("falta fecha hasta", lblMsjeGenerarVacunas)
            Exit Sub
        End If

        If IsDate(txt_Vacunas_Desde.Text) = False Then
            FG.MuestraCartel("la fecha desde no es una fecha valida", lblMsjeGenerarVacunas)
            Exit Sub
        End If

        If IsDate(txt_Vacunas_Desde.Text) = False Then
            FG.MuestraCartel("la fecha hasta no es una fecha valida", lblMsjeGenerarVacunas)
            Exit Sub
        End If

        If CDate(txt_Vacunas_Desde.Text) >= CDate(txt_Vacunas_Hasta.Text) Then
            FG.MuestraCartel("la fecha hasta debe ser superior a la fecha desde", lblMsjeGenerarVacunas)
            Exit Sub
        End If


        '' Busco  ...


      


        buscoDatosDeGrilla_Y_deChatr()


        'MuestroDatos_del_RS("indice de vacunaciòn")

        CompletaDatosDisciminandoSexo()



    End Sub

 
End Class